home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / MAL38.ZIP;1 / FOXPRO.ZIP / MALUT2.FXP (.txt) < prev    next >
Encoding:
MS Visual FoxPro App  |  1994-04-29  |  10.9 KB  |  197 lines
  1.  Import Type 
  2.  [\<1] - Foxbase Plus
  3.  [\<2] - Lotus Worksheet
  4.  [\<3] - Comma Delimited Text File
  5.  [\<4] - Foxpro DBF File
  6.  [\<5] - SBT Receivables Customer File
  7.  [\<6] - SBT Payroll Employee File
  8.  [\<7] - SBT Payables Vendor File
  9.  [\<Q] - Quit to main menu
  10. DEACTIVATE POPUP
  11. MALUT2
  12. Importing Mailing List, type F
  13. Press [Esc] to return to main menu
  14. Enter Import File Path/Name: 
  15.  not Found
  16. Creating Temporary file
  17. bESC =.T.
  18. Select Mailing List field(s) to be modified,
  19. When finished, press [Enter] on the blank field.
  20. REPLACE: 
  21. DO DISP_STRUC
  22. Press [F2] for 
  23.  structure
  24. WITH: 
  25. TEMP->F
  26. TEMP->F
  27. Phrase is not the same field type
  28. Creating Temporary file
  29. SRC->MEMOf
  30. SRC->MEMOf
  31. TEMP->F
  32.  WITH 
  33. REPLACE &cROW
  34. LDATEf
  35. CUSTOMERF
  36. CUSTOMERF
  37. CUSTOMERF
  38. M->PRSTLOCf
  39. EMPLOYEEF
  40. EMPLOYEEF
  41. EMPLOYEEF
  42. LRECDATEf
  43. VENDORF
  44. VENDORF
  45. VENDORF
  46. Option Grid for Temporary file, # records = FFF
  47. TEMPQ^D
  48. Importing Temporary file
  49.  .AND. 
  50. mUSER_ID$UPPER(USER_ID)
  51.  .AND. 
  52. mSEX$UPPER(SEX)
  53.  .AND. 
  54. mSTATUS$UPPER(STATUS)
  55.  .AND. 
  56. mHOUSE$UPPER(HOUSE)
  57.  .AND. 
  58. mFIRST$UPPER(FIRST)
  59.  .AND. 
  60. mLAST$UPPER(LAST)
  61.  .AND. 
  62. mADDR_1$UPPER(ADDR_1)
  63.  .AND. 
  64. mADDR_2$UPPER(ADDR_2)
  65.  .AND. 
  66. mCITY$UPPER(CITY)
  67.  .AND. 
  68. mSTATE$UPPER(STATE)
  69.  .AND. 
  70. mZIP$UPPER(ZIP)
  71.  .AND. 
  72. mADDR_1$UPPER(SADDR_1)
  73.  .AND. 
  74. mADDR_2$UPPER(SADDR_2)
  75.  .AND. 
  76. mCITY$UPPER(SCITY)
  77.  .AND. 
  78. mSTATE$UPPER(SSTATE)
  79.  .AND. 
  80. mZIP$UPPER(SZIP)
  81.  .AND. 
  82. mBIRTH<=BIRTH
  83.  .AND. 
  84. mBIRTH2>=BIRTH
  85.  .AND. 
  86. mWEDDING<=WEDDING
  87.  .AND. 
  88. mWEDDING2>=WEDDING
  89.  .AND. 
  90. mACT_DATE<=ACT_DATE
  91.  .AND. 
  92. mACT_DATE2>=ACT_DATE
  93.  .AND. 
  94. BOL_1
  95.  .AND. 
  96. BOL_2
  97.  .AND. 
  98. BOL_3
  99.  .AND. (
  100. mMESS&cCOUNT = ALLTRIM(  LEFT(mMESS,nCHR-1))
  101. IF LEN(mMESS&cCOUNT) > 0
  102. .OR.8
  103. mMESS
  104. $UPPER(MESS)
  105. .OR.8
  106. mMESS$UPPER(MESS))
  107. SET FILTER TO &cD
  108. bESC =.T.
  109. Number of Appended/Updated Records = F
  110. WINDOW
  111. ECFILE
  112. FNFILE
  113. PLSWAIT
  114. CTEMP
  115. CTEMPPATH
  116. CFILE2
  117. DIALOG
  118. YPEFLD
  119. FNPOPKEY
  120. NCOUNT
  121. THERM
  122. CWORK
  123. YPEPHONE
  124. DACT_DATE
  125. LDATE
  126. COMPANY
  127. ADDR_1
  128. ADDRESS1
  129. ADDR_2
  130. ADDRESS2
  131. 2CITY
  132. STATE
  133. SADDR_1
  134. SADDR_2
  135. SCITY
  136. SSTATE
  137. DATE2WORK
  138. ACT_DATE
  139. CPR_FLD11
  140. BOL_1
  141. CPR_FLD21
  142. BOL_2
  143. CPR_FLD31
  144. BOL_3
  145. PRSTAT
  146. PRPHONE
  147. MEPRCITY
  148. PRZIP
  149. PRSTATE
  150. PRSTLOC
  151. MESTATUS
  152. EPRFWT
  153. YPEHOUSE
  154. FIRST
  155. PRFIRST
  156. PRLAST
  157. BIRTH
  158. PEPRDATE
  159. PRADDR
  160. PRPDATE
  161. SS_NO
  162. PRSSNUM
  163. IDTHLRECDATE
  164. NFORM_SCR
  165. BIRTH2
  166. WEDDING2
  167. ACT_DATE2
  168. CADDR_TYPENINDEX
  169. NORDER
  170. PEOPTION
  171. USER_ID
  172. MUSER_ID
  173. MSTATUS
  174. MHOUSE
  175. MFIRST
  176. MLAST
  177. MADDR_1
  178. PEMADDR_2
  179. MCITY
  180. MSTATE
  181. MBIRTH
  182. MBIRTH2
  183. WEDDING
  184. MWEDDING
  185. MWEDDING2
  186. MACT_DATE
  187. MACT_DATE2MMESS
  188. CCOUNT
  189. NRECNO
  190. APPEND
  191. FNRLOCK
  192. ALTER
  193. DISP_STRUC
  194. D:\DMAIL4\
  195. MALUT2.FXP
  196. D:\DMAIL4\MALUT2.PRG
  197.